
# The American Viewer: Political Consequences of Entertainment Media
# Eunji Kim and Shawn Patterson Jr 
# American Political Science Review 
# Replication File [Appendix G Figure G1]

library(ggridges)
library(ggplot2)


# load appendix_figureg1 data 
data <- read.csv("appendix_figureg1.csv")


ggplot(data, aes(y = primary_choice, x = value2, fill = primary_choice)) +
  geom_density_ridges(scale = 3, rel_min_height = 0.01) +  # Adjust scale and height if needed
  scale_x_continuous() +
  scale_fill_manual(values = colors) +
  labs(title = "",
       x = "Issue Importance (Gay Marriage)",
       y = "") +
  theme_minimal() +
  theme(legend.position = "none",  # Remove legend
        axis.text = element_text(colour = "black", face = "bold", size=12),  # Bold and black axis text
        axis.title = element_text(colour = "black", face = "bold"))  # Bold and black axis titles

